home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr49 / pgp23src.zip / POSTPGP < prev    next >
Text File  |  1993-03-07  |  1KB  |  42 lines
  1. #!/usr/local/perl
  2.  
  3. # written by jason steiner, jsteiner@anwsun.phya.utoledo.edu, Jan 1993
  4. #
  5. # if you use or make improvements to this program i would appreciate
  6. # copies of your modifications & your PGP public key.
  7.  
  8. ($visual = $ENV{'VISUALBAK'}) || ($visual = '/usr/ucb/vi');
  9. print "starting $visual.\n";
  10. system($visual,@ARGV);
  11. while (!$q) {
  12.         print "Sign this message? [Y]: ";
  13.         $q=<STDIN>;
  14.         chop $q;
  15.         if (($q eq 'Y') || ($q eq 'y') || ($q eq '')) {
  16.                 push(@opts,'-st','+clearsig=on');
  17.                 $q="y";
  18.                 }
  19.         elsif (($q ne 'N') && ($q ne 'n')) {
  20.                 $q='';
  21.         }
  22. }
  23. if (@opts) {
  24.         $name=$ARGV[$#ARGV];
  25.         open(INPUT,$name);
  26.         open(HEAD,">${name}.head");
  27.         open(BODY,">${name}.body");
  28.         while (<INPUT>) {
  29.                 if (1 .. /^$/) { print HEAD; }
  30.                 else { print BODY; }
  31.         }
  32.         close(HEAD);
  33.         close(BODY);
  34.         system('pgp','-a',@opts,"${name}.body");
  35.         unlink($name);
  36.         system "cat ${name}.head ${name}.body.asc > $name";
  37.         unlink("${name}.head");
  38.         unlink("${name}.body");
  39.         unlink("${name}.body.asc");
  40. }
  41.  
  42.